home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / libs / knowhow4 / mult.vec < prev    next >
Text File  |  1994-05-30  |  2KB  |  74 lines
  1. ZOOM(1,1)
  2. SETFILL(1)
  3. SETCOLOR(12)
  4. SETFILLSTYLE(1, 1)
  5. RECTANGLE(0, 0, 640,480)
  6.  
  7. alfa = 0
  8. xs1 = 20: ys1 = 20
  9. xs2 = 9: ys2 = 9
  10. FOR x = 0 TO 1
  11.     FOR y = 0 TO 3
  12. RECTANGLE(150*x+15,90*y+15,150*x+20,90*y+20))
  13.         xx=150*x+80: yy=90*y+60
  14.         SETCOLOR(12)
  15.         SETFILLSTYLE(1, 12)
  16.         ELLIPSE(xx,yy,0,360,20,20)
  17.         SETCOLOR(5)
  18.         SETFILLSTYLE(1, 5)
  19.         ELLIPSE(xx-xs2,yy+ys2,0,360,5,5)
  20. SETCOLOR(14)
  21. SETFILLSTYLE(1,14)
  22. i=xx+xs1: j=yy+ys1
  23. ROTATE(30*alfa, i,j)
  24. POLY(11,i,j-9,i+4,j-3,i+9,j-3,i+5,j+3,i+8,j+8,i,j+5,i-7,j+8,i-4,j+4,i-8,j-3,i-4,j-3,i,j-9)
  25. alfa = alfa + 5
  26. ROTATE(0, i,j)
  27.         SETCOLOR(2)
  28.         SETFILLSTYLE(1,2)
  29.         ELLIPSE(i,j,0,360,5,5)
  30.         xs1 = xs1 - 6
  31.         ys1 = ys1 - 6
  32.         xs2 = xs2 - 3
  33.         ys2 = ys2 - 3
  34.     NEXT
  35. NEXT
  36. xs2 = 9: ys2 = 9
  37. FOR x = 2 TO 3
  38.     FOR y = 0 TO 3
  39. RECTANGLE(150*x+15,90*y+15,150*x+20,90*y+20))
  40.         xx=150*x+80: yy=90*y+60
  41. SETCOLOR(14)
  42. SETFILLSTYLE(1,14)
  43. i=xx+xs1: j=yy+ys1
  44. ROTATE(alfa,i,j)
  45. POLY(11,i,j-9,i+4,j-3,i+9,j-3,i+5,j+3,i+8,j+8,i,j+5,i-7,j+8,i-4,j+4,i-8,j-3,i-4,j-3,i,j-9)
  46. ROTATE(0,i,j)
  47.         SETCOLOR(2)
  48.         SETFILLSTYLE(1,2)
  49.         ELLIPSE(i,j,0,360,5,5)
  50.  
  51.         SETCOLOR(12)
  52.         SETFILLSTYLE(1, 12)
  53.         ELLIPSE(150*x+80,90*y+60,0,360,20,20)
  54.         SETCOLOR(15)
  55.         SETFILLSTYLE(1, 15)
  56.         ELLIPSE(xx-xs2,yy+ys2,0,360,5,5)
  57.  
  58.         xs1 = xs1 + 6
  59.         ys1 = ys1 + 6
  60.         xs2 = xs2-3
  61.         ys2 = ys2-3 
  62.     NEXT
  63. NEXT
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.